include Lang.inc

.code
;**************************************************************
AboutDlgProc proc uses ebx edi esi hWnd:dword, uMsg:dword, wParam:dword, lParam:dword
	local hParent:dword
	mov eax, uMsg
	.if eax==WM_CLOSE
		invoke EndDialog, hWnd, NULL
	.elseif eax==WM_INITDIALOG
		invoke GetParent, hWnd
		push eax
		pop hParent
		invoke CenterWindow, hParent, hWnd
	.elseif eax==WM_COMMAND
		mov eax, wParam
		.if eax==IDC_ABOUT_OK
			invoke EndDialog, hWnd, NULL
		.endif
	.else
		mov eax, FALSE
		ret
	.endif
	mov eax, TRUE
	ret
AboutDlgProc endp
;**************************************************************

;**************************************************************
PEToolAbout proc hInst:dword, hWnd:dword
	invoke DialogBoxParam, hInst, IDD_ABOUT_DLG, hWnd, offset AboutDlgProc, NULL
	ret
PEToolAbout endp
;**************************************************************
; end